i4mat_transpose_print_some Subroutine

subroutine i4mat_transpose_print_some(m, n, a, ilo, jlo, ihi, jhi, title)

************80

I4MAT_TRANSPOSE_PRINT_SOME prints some of the transpose of an I4MAT.

Arguments

Type IntentOptional Attributes Name
integer(kind=4) :: m
integer(kind=4) :: n
integer(kind=4) :: a(m,n)
integer(kind=4) :: ilo
integer(kind=4) :: jlo
integer(kind=4) :: ihi
integer(kind=4) :: jhi
character(len=*) :: title

Variables

Type Visibility Attributes Name Initial
character(len=7), public :: ctemp(incx)
integer(kind=4), public :: i
integer(kind=4), public :: i2
integer(kind=4), public :: i2hi
integer(kind=4), public :: i2lo
integer(kind=4), public :: inc
integer(kind=4), public, parameter :: incx = 10
integer(kind=4), public :: j
integer(kind=4), public :: j2hi
integer(kind=4), public :: j2lo